home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / boymks5e.zip / SCRIPT.BSC < prev    next >
Text File  |  1991-12-16  |  24KB  |  457 lines
  1. \\
  2. \\ Script.bsc by: Lee Breeden
  3. \\
  4. \\ This script contains all of the commands for doing a mail and file
  5. \\ calls with PCBoard. You need to setup a system script that sets all
  6. \\ of the variables in the script. The this script has the variables in
  7. \\ it, needs to be named in the scrit that is named in the dialing
  8. \\ directory under script name.
  9. \\
  10. \\ ******************************************************************** \\
  11. \\ Please note that this script will call the system back if it         \\
  12. \\ fails in different places. Use the \SVA[X] command with              \\
  13. \\ caution. If the system that your calling is long distance, BEWARE!   \\
  14. \\ ******************************************************************** \\
  15. \\ Script using all variables V0-9 VA-H F=cursor position G=messages count
  16. \\ H=Timer to wait for total messages.
  17.  
  18. |name
  19. \IE+%VN,X[\eb]\svt[0]
  20. \wp[1]\dm21[Starting to log name onto %SN]
  21. \CA-[\SVA[X]\eb]                                   \\ Checks carrier
  22. \if+raphics[n q NS{\gb[name]]                      \\ looks for prompt
  23. \if+irst[\! \@{\gb[name]]                          \\ looks for prompt
  24. \if+ast[\@{\gb[name]]                              \\ looks for prompt
  25. \if+required[\gb[name]]                            \\ looks for prompt
  26. \if+Is this correct[{\gb[name]]                    \\ looks for prompt
  27. \if+Re-enter your name[r{\gb[name]]                \\ error messages
  28. \if+CAUTION: Auto[{\SVA[X]\eb]                     \\ error messages
  29. \if+Keyboard Time Expired[{\SVA[X]\eb]             \\ error messages
  30. \if+board is currently attempting to dial out[{\SVA[X]\eb] \\ error messages
  31. \if+Automatic Disconnect[{\SVA[X]\eb]              \\ error messages
  32. \if+NO CARRIER[{\SVA[X]\eb]                        \\ error messages
  33. \if+Did you forget[n{\SVA[X]\eb]                   \\ error messages
  34. \if+assword[%PW{\SVN[X]\eb]                        \\ looks for prompt
  35. {\pa[1]\gb[name]
  36.  
  37. |QUEST
  38. \IE+%VQ,X[\eb]                                      \\ This section will
  39. \CA-[\SVA[X]\eb]\\WP[1]\CA-[\AB]                    \\ get you to the
  40. \DM[Script running - connected to %SN]              \\ command prompt.
  41. \IF+(NS)[n{\GB[quest]]                              \\ This block will be
  42. \IF+ontinue[{\GB[quest]]                            \\ called at the complete
  43. \IF+mail[{\GB[quest]]                               \\ of many blocks used
  44. \IF+(NS)non-stop?[n{\GB[quest]]                     \\ in this script.
  45. \IF+Command?[{\SVQ[X]\SVT[0]\EB]                           \\ It is useful for
  46. \IF+(Enter)[N{\GB[quest]]                           \\ unforeseen prompts
  47. \IF+(Enter)=none?[{\GB[quest]]                      \\ that the sysop might
  48. \IF+More?[n{\GB[quest]]                             \\ have lurking in the
  49. \IF+respond[{\GB[quest]]                            \\ system.
  50. \IF+Main Board Command?[{\SVQ[X]\SVT[0]\eb]         \\
  51. \IF+Scan Message Base[n{\GB[quest]]                 \\
  52. \IF+assword[%PW{]                                   \\
  53. \IF+Your Main Board[{\SVQ[X]\SVT[0]\eb]             \\
  54. \+VT[1]
  55. \IE+%VT,3[^K \pa[2]\gb[quest]                       \\ block to its beginning
  56. \IE+%VT,5[{\svt[0]]\pa[2]\gb[quest]                 \\ block to its beginning
  57.  
  58. |2QUEST
  59. \\ This block is EXACTLY the same as the one above only it will not
  60. \\ register as being completed as the above one will.
  61. \CA-[\SVA[X]\eb]\\WP[1]\CA-[\AB]                    \\ get you to the
  62. \DM[Script running - connected to %SN]              \\ command prompt.
  63. \IF+(NS)[n{\GB[quest]]                              \\ This block will be
  64. \IF+ontinue[{\GB[quest]]                            \\ called at the complete
  65. \IF+mail[{\GB[quest]]                               \\ of many blocks used
  66. \IF+(NS)non-stop?[n{\GB[quest]]                     \\ in this script.
  67. \IF+Command?[{\SVT[0]\EB]                           \\ It is useful for
  68. \IF+(Enter)[N{\GB[quest]]                           \\ unforeseen prompts
  69. \IF+(Enter)=none?[{\GB[quest]]                      \\ that the sysop might
  70. \IF+More?[n{\GB[quest]]                             \\ have lurking in the
  71. \IF+respond[{\GB[quest]]                            \\ system.
  72. \IF+Main Board Command?[{\SVT[0]\eb]                \\
  73. \IF+Scan Message Base[n{\GB[quest]]                 \\
  74. \IF+assword[%PW{]                                   \\
  75. \IF+Your Main Board[{\SVT[0]\eb]                    \\
  76. \+VT[1]
  77. \IE+%VT,3[^K \pa[2]\gb[quest]                       \\ block to its beginning
  78. \IE+%VT,5[{\svt[0]]\pa[2]\gb[quest]                 \\ block to its beginning
  79.  
  80.  
  81. |mail
  82. \IE+%VM,X[\eb]
  83. \au-\dm21[Starting Mail block]                      \\ This will open the mail
  84.                                                     \\ au- turn auto-dn-load off
  85. \CA-[\SVA[X]\eb]                                    \\ door from main command
  86. op %V2{\PA[5]\SVM[X]\eb                             \\ waits 5 sec before door.
  87.  
  88. |QMul
  89. \IE+%VS,X[\eb]
  90. \CA-[\SVA[X]\eb]                                    \\ display message
  91. {\WF[ommand?]~u{\IW-[\SVS[]\bl[2quest]\gb[QMul]]     \\ issue upload command
  92. \wf[B01]\IW-[\SVS[]\bl[2quest]\gb[QMul]]
  93. \ulz-[%V1]\it+[\dc-[copy %u:%v1 %U:1%V1]\DC-[del %U:%V1]]
  94. \SVS[X]{\eb                                         \\ above block renames
  95.                                                     \\ *.rep to 1*.rep
  96. |QMdl
  97. \IE+%VG,X[\eb]
  98. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb]    \\Display message
  99. \wp[1]{\WF[Command]~d{                               \\issue command for dnload
  100. \to[%VH]\wf[no messages were found]\IW+[q{\eb]       \\ checks for messages
  101. \to[254]\WF[(Y/N)]~y{                                \\ waits for prompt
  102. \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]
  103. \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%v4]\IT-[\SVA[X]]\\ download mail packet.
  104. \CA-[\SVA[X]\eb] ~~{\WF[Command?]~q{\to[40]\bl[2quest]  \\ return to main.
  105. \SVG[X]\eb
  106.  
  107. |MMul
  108. \IE+%VS,X[\eb]
  109. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  110. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  111. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  112. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  113. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  114. \WF[Command?]~u{\IW-[\SVS[]\bl[2quest]\gb[MMul]]   \\ give upload command
  115. \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[MMul]]
  116. \ulz-[%V1]                                        \\ do Zmodem upload of mail
  117. \it+[\dc-[copy %u:%v1 %U:1%V1]]                   \\ if successful ren file
  118. \IT+[\DC-[del %U:%V1]]                            \\ del old file.
  119. \SVS[X]\eb
  120.  
  121. |MMdl
  122. \IE+%VG,X[\eb]
  123. \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  124. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command
  125. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages
  126. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  127. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  128. \WF[Command?]~d{                        \\ Enter download command
  129. \to[%VH]\WF[No Messages Found]\IW+[\sva[x]q{\eb]
  130. \to[254]\wf[Total M]\IW-[q{\eb]~y{       \\check message
  131. \CA-[\SVA[X]\eb]
  132. \IW-[\wf[you]y{]
  133. \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]\CA-[\SVA[X]\eb]\\ make backups of the existing qwks
  134. \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  135. \CA-[\SVA[X]\eb] \to[40]\WF[MarkMail Command?]q{ \\ Quit door
  136. \pa[4]\bl[2quest]\SVG[X]\eb             \\ run prompt command.
  137. \SVG[X]\eb
  138.  
  139. |RMul
  140. \IE+%VS,X[\eb]
  141. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  142. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  143. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  144. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  145. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  146. \WF[Command?]~u{\IW-[\SVS[]\bl[2quest]\gb[RMul]]   \\ give upload command
  147. \WF[B01] \IW-[\SVS[]\bl[2quest]\gb[RMul]]
  148. {\ulz-[%V1]                                       \\ do Zmodem upload of mail
  149. \it+[\dc-[copy %u:%v1 %U:1%V1]]                   \\ if successful ren file
  150. \IT+[\DC-[del %U:%V1]]                            \\ del old file.
  151. \SVS[X]\eb
  152.  
  153. |RMdl
  154. \IE+%VG,X[\eb]
  155. \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  156. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command
  157. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages
  158. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  159. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  160. \CA-[\SVA[X]\eb] \WF[Command?]~d;y{     \\ Enter download command
  161. \WF[checking]\IW+[\bl[renfile]]         \\ make backups of the existing qwks
  162. \CA-[\SVA[X]\eb] \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  163. \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{ \\ Quit door
  164. \pa[4]\bl[2quest]\SVG[X]\eb              \\ run prompt command.
  165. \SVG[X]\eb
  166.  
  167. |KMul
  168. \IE+%VS,X[\eb]
  169. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  170. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  171. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  172. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  173. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  174. \WF[Command?]u{~\IW-[\SVS[]\bl[2quest]\gb[KMul]]   \\ give upload command
  175. \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[KMul]]
  176. {\ulz-[%V1]                                       \\ do Zmodem upload of mail
  177. \it+[\dc-[copy %u:%v1 %U:1%V1]]                   \\ if successful ren file
  178. \IT+[\DC-[del %U:%V1]]                            \\ del old file.
  179. \SVS[X]\eb
  180.  
  181. |KMdl
  182. \IE+%VG,X[\eb]
  183. {\dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  184. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{]  \\ if prompt command
  185. \CA-[\SVA[X]\eb]
  186. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages currently off.
  187. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  188. \if+Automatic disconnect[{\SVA[X]\eb]       \\ some error messages
  189. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  190. \WF[Command?]~d{                        \\ Enter download command
  191. \to[%VH]\WF[No Messages Found]\IW+[q{\eb]
  192. \to[254]\wf[Do You Want]~y{ \\check message
  193. \CA-[\SVA[X]\eb]
  194. \\to[254]\wf[Total M]~\rvd-[15]\dvd[9]\ie+%vd,%VG[\sve[M]]~y{ \\check message
  195. \IW+[\bl[renfile]                      \\ make backups of the existing qwks
  196. \TO[254]\CA-[\SVA[X]\eb] \WF[B00]\iw-[\SVA[x]\eb]\dlz-[%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  197. \CA-[\SVA[X]\eb] \ie+%ve,M[\+vb[1]\gb[KMdl]\\if maximum # of messages re-due MM block
  198. \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{    \\ Quit door
  199. \pa[4]\bl[2quest]\SVG[X]\eb             \\ run prompt command.
  200. \SVG[X]\eb
  201.  
  202. |MRul                                  \\MegaMail
  203. \IE+%VS,X[\eb]
  204. \dm23[Starting %v1 Mail upload]\PA[1]
  205. \WF[B01]~\ULZ[%V1]
  206. \it+[\dc-[copy %u:%V1 %U:1%V1]]        \\ these commands I am not sure if
  207. \IT+[\DC-[del %U:%V1]]                 \\ there needed w/Megamail.
  208. \SVS[X]\eb
  209.  
  210. |MRdl
  211. \IE+%VG,X[\eb]
  212. \PA[5]\dm23[Starting %V4 Mail download]
  213. \IW+[\bl[renfile]                      \\ make backups of the existing qwks
  214. \to[254]\WF[B00]~\DLZ[%V4]             \\ I have been told that this isn't
  215. \to[40]\DM22[Leaving MegaMail Door]\SVG[X]\eb \\ needed... I don't really know.
  216.  
  217. |renfile
  218. \CA-[\SVA[X]\eb]
  219. \dm[ Altering file names ]
  220. \lm[V0=%V0 Va=%Va Vb=%Vb VC=%VC ]    \\ logs messages to disk about-
  221. \lm[VD=%VD VE=%VE VF=%Vf VG=%VG ]    \\ variables being used.
  222. \IE+%Vb,9[\dc-[del %D:8%v4]\gb[8]]   \\ From here to the end of the
  223. \IE+%Vb,8[\dc-[del %D:7%v4]\gb[7]]   \\ end of this section, these
  224. \IE+%Vb,7[\dc-[del %D:6%v4]\gb[6]]   \\ commands will rename the qwks
  225. \IE+%Vb,6[\dc-[del %D:5%v4]\gb[5]]   \\ to the defined setup.
  226. \IE+%Vb,5[\dc-[del %D:4%v4]\gb[4]]   \\            .
  227. \IE+%Vb,4[\dc-[del %D:3%v4]\gb[3]]   \\            .
  228. \IE+%Vb,3[\dc-[del %D:2%v4]\gb[2]]   \\            .
  229. \IE+%Vb,2[\dc-[del %D:1%v4]\gb[1]]   \\            .
  230. \IE+%Vb,1[\gb[delfile]]              \\            .
  231. \IE+%Vb, [\gb[delfile]]              \\            .
  232. \IE-%V6,[\gb[delfile]]               \\            .
  233. |9                                   \\            .
  234. \dc-[ren %d:8%v4 9%v4]\gb[8]         \\            .
  235. |8                                   \\            .
  236. \dc-[ren %d:7%v4 8%v4]\gb[7]         \\            .
  237. |7                                   \\            .
  238. \dc-[ren %d:6%v4 7%v4]\gb[6]         \\            .
  239. |6                                   \\            .
  240. \dc-[ren %d:5%v4 6%v4]\gb[5]         \\            .
  241. |5                                   \\            .
  242. \dc-[ren %d:4%v4 5%v4]\gb[4]         \\            .
  243. |4                                   \\            .
  244. \dc-[ren %d:3%v4 4%v4]\gb[3]         \\            .
  245. |3                                   \\            .
  246. \dc-[ren %d:2%v4 3%v4]\gb[2]         \\            .
  247. |2                                   \\            .
  248. \dc-[ren %d:1%v4 2%v4]\gb[1]         \\            .
  249. |1                                   \\            .
  250. \dc-[ren %d:%v4 1%v4]\gb[delfile]    \\    * end of ren file commands *
  251. |delfile                             \\            .
  252. \dc-[del %d:%v4]                     \\ By default, this will delete one file.
  253.  
  254. |Prodoor                             \\ Probably will eliminate this one.
  255. \dm[Entering prodoor]\CA-[\eb]
  256. \to[20]\wf[ommand]{\iw-[\gb[prodoor]]  \\ enters prodoor if not successful
  257. \wf[ommand]open %V3{\pa[5]             \\  at prompt try again. Open other
  258. \eb                                    \\ wise.
  259.  
  260. |FILES
  261. \fe+%S:%VI.up[\sv3[5]\SVT[0]\bl[fileInfo]]
  262. \ie+N,%VC[\eb] \CA-[\SVA[X]\eb] \IE+%VF,X[\eb]
  263. \CA-[\eb]\dm[Scanning for new files]\WP[1] \\ check carrier
  264. \wf[ommand]n s %VC ns{\pa[2]               \\ issues command for new file
  265. \to[60]\bl[2quest]                          \\ scan and then runs quest block
  266. \eb
  267.  
  268. |FileInfo
  269. \CA-[\SVA[X]\eb]
  270. \dm22,22[fileinfo block, getting file name]
  271. \GV0[%S:%VI.up]                         \\ Reads info on current line of file
  272. \II+%V0,^Z[ \gv[] \BL[upload] \bl[clear] \bl[upclean] \ST[ ]\eb]
  273.                                         \\ This checks for end of file marker.
  274. \II+%V0,"+[ \BL[upload] \bl[clear] \GB[FileInfo] ] \\ If "+" is on this line
  275.                                         \\ do U/L and repeat block.
  276. \II+%V0,"*[\EB]                         \\ If "*" is on this line \eb and
  277.                                         \\ then do U/L
  278. \SV%V3[%V0]\+v3[1] \GB[FileInfo]        \\ sends info and repeats block.
  279.  
  280. |clear
  281. \sv5[]\sv6[]\sv7[]\sv8[]                \\ Clears info stored in variables 5-8
  282. \sv3[5]\svt[0]                          \\ Set variable 3 to 5 for use in
  283.                                         \\ fileinfo block
  284. |upclean
  285. \dc-[copy %S:%VI.up %S:1%Vi.up]
  286. \dc-[del %s:%vi.up]
  287.  
  288. |upload
  289. \CA-[\SVA[X]\eb] \IE+%VU,X[\eb] \IE+%VT,7[\SVT[0]{]
  290. \dm23,23[Starting file upload]\CA-[\eb]      \\ check carrier
  291. \if+Upload (Enter)=none?[{\eb]                \\ issue upload & file name
  292. \if+(Enter)=none?[{\eb]                       \\ issue upload & file name
  293. \if+Enter the Filename[{\eb]                  \\ issue upload & file name
  294. \if+? ([\bl[upinfo]\eb]
  295. \if+Enter the Filename[\bl[upinfo]\eb]
  296. \if+enter a description[\bl[upinfo]\eb]
  297. \if+exists[\eb]
  298. \if+duplicates[{\eb]
  299. \if+ommand[u;%v5{\pa[2]\gb[upload]]             \\ issue upload & file name
  300. \pa[2]\+VT[1]\gb[upload]
  301. \eb
  302.  
  303. |upinfo
  304. \CA-[\SVA[X]\eb]\to[5]
  305. \if+ommand[\eb]%V6{                        \\ if not correct prompt end
  306. \II-%v7,  [\WF[? ]%v7{|%v7{]               \\ if not then add file
  307. \II-%V8,  [\WF[? ]%v8{|%v8{]               \\ description.
  308. {\pa[1]{\CA-[\SVA[X]\eb]
  309. \fe+%U:%v5[\WF[B01]\ko[0]\ulz[%v5]{\bl[checking]\eb]     \\ Start Zmodem  transfer.
  310. \fe+%D:%v5[\WF[B01]\ko[0]\ulz-[%D:%v5]{\bl[checking]\eb] \\ Start Zmodem  transfer.
  311. \fe+e:\host\%v5[\WF[B01]\ko[0]\ulz-[e:\host\%v5]{\bl[checking]\eb] \\ Start Zmodem  transfer.
  312. \eb
  313.  
  314. |checking
  315. \to[20]\wf[ZIPLAB PLUS]
  316. \IW+[\to[40]\pa[15]{~{]                    \\ If system does file check
  317. \IW-[\to[40]\pa[5]{~{]                     \\ If system does file check
  318. {\bl[2quest]\eb                             \\ pause and then run quest bl.
  319. \eb
  320.  
  321. |dowlst
  322. \CA-[\SVA[X]\eb]
  323. \GV0[%S:%VI.dow]                         \\ Reads info on current line of file
  324. \IE+%V0,^Z[ \gv[] \ST[ ] \bl[wipefile] \eb]\\ This checks for end of file marker.
  325. \SV9[%V0] \bl[download]  \GB[dowlst]    \\ sends info and repeats block.
  326.  
  327. |upclear
  328. \sv0[]\sv9[]                            \\ Clears info stored in variables 0&9
  329.  
  330. |wipefile
  331. \dc-[copy %S:%VI.dow %S:1%VI.dow]
  332. \dc-[del %S:%VI.dow]
  333.  
  334. |download
  335. \IE+%VD,X[\eb]
  336. \fe+%D:%V9[\eb]
  337. \fe+%U:%V9[\eb]
  338. \CA-[\eb]\dm8[Starting file dnload]{    \\ check carrier
  339. \if+Insufficient time remaining[\bl[2quest]\eb]\\looking for time - endblock
  340. \if+found on disk![\bl[2quest]\eb]       \\ looking for found to - endblock
  341. \if+ommand[db;%v9{\gb[download]]         \\ looking for command to - download
  342. \if+ilespec[{\gb[download]]                \\ execute download commands
  343. \if+(1) Enter the filename[{\bl[2quest]\eb] \\ error message and abort block
  344. \if+(G)oodbye after Batch[{\gb[download]]  \\ looking for this to proceed
  345. \if+(A)dd a File[{\gb[download]]           \\ looking for this to proceed
  346. \if+Download (Enter)=none?[{\gb[download]] \\ looking for this to proceed
  347. \if+(2) Enter the filename[{\gb[download]] \\ looking for this to proceed
  348. \if+(3) Enter the filename[{\gb[download]] \\ looking for this to proceed
  349. \if+(4) Enter the filename[{\gb[download]] \\ looking for this to proceed
  350. \if+(5) Enter the filename[{\gb[download]] \\ looking for this to proceed
  351. \if+B00[\dlz[%V9]\pa[1]\bl[2quest]\eb       \\ waits for Zmodem signal/dnloads
  352. \if+Transfer Ended[\bl[2quest]\eb]          \\ Cycles quest block
  353. \if+found[\bl[2quest]\eb]                   \\ Error message and quest block
  354. \pa[2]{\gb[download]
  355. \eb
  356.  
  357. |logoff                       \\ Log off block
  358. \svi[2%vi]\ca-[\ab]\svb[]\svc[]
  359. \dm[Getting ready to log off] \\ Message display.
  360. \wp[1]\ko[ ]\to[12]\au+       \\ check carrier & reset settings
  361. \ca-[~~\ab]g y{~g{{           \\ issue <G>oodbye command before hanging up.
  362. \wl\to[40]
  363. \eb                           \\ from block below
  364.  
  365. |calback                      \\ Call back block if error occurred
  366. \dm20[ Script terminating, unable to log on ]       \\ not get logged onto
  367. \dm21[  You have three seconds to hit ESC   ]       \\ the system, lets try
  368. \dm22[   before logging off this system.    ]       \\ again on another call.
  369. \pa[3]\um[ %SN terminated at %HR %MI ]              \\ place note in user log.
  370. \qa+[%v0]\SVA[]{\ko[]        \\ adds current system phone number to queue
  371. \IE+ON,%LD[\LD-]             \\ Checks log status and turns off if necessary
  372. g{~atz{~\ab
  373.  
  374. |Settings
  375. \sv0[1]
  376. \DM4,%V0[ ╔═══════════════════════════════════════╗                                              ]\+V0[1]
  377. \DM4,%V0[ ║   Current settings                    ║                                              ]\+V0[1]
  378. \DM4,%V0[ ╠═══════════════════════════════════════╣                                              ]\+V0[1]
  379. \DM4,%V0[ ║  Avail. shell MEM  : %DS              ║                                              ]\+V0[1]
  380. \DM4,%V0[ ║ Current Act Module : %AM                ║                                              ]\+V0[1]
  381. \DM4,%V0[ ║   Pervious Act Mod : %AP                ║                                              ]\+V0[1]
  382. \DM4,%V0[ ║       Beep & Bells : %BB              ║                                              ]\+V0[1]
  383. \DM4,%V0[ ║        8Bit ON/OFF : %B8              ║                                              ]\+V0[1]
  384. \DM4,%V0[ ║           Com Port : %MD                ║                                              ]\+V0[1]
  385. \DM4,%V0[ ║        Modem Speed : %MS             ║                                              ]\+V0[1]
  386. \DM4,%V0[ ║       Modem Parity : %MP                ║                                              ]\+V0[1]
  387. \DM4,%V0[ ║        Echo set to : %EC              ║                                              ]\+V0[1]
  388. \DM4,%V0[ ║       Uart Setting : %AU              ║                                              ]\+V0[1]
  389. \DM4,%V0[ ║  Line Feeds set to : %LF               ║                                              ]\+V0[1]
  390. \DM4,%V0[ ║ Current Printer Set: %PR              ║                                              ]\+V0[1]
  391. \DM4,%V0[ ║   Default Protocol : %DP                                                             ]\+V0[1]
  392. \DM4,%V0[ ║   Current Log file : %LN                                                             ]\+V0[1]
  393. \DM4,%V0[ ║  Path for Protocol : %P:                                                             ]\+V0[1]
  394. \DM4,%V0[ ║  Current Phone dir : %FD                                                             ]\+V0[1]
  395. \DM4,%V0[ ║       Connected to : %SN                                                             ]\+V0[1]
  396. \DM4,%V0[ ║      Last filename : %TF                                                             ]\+V0[1]
  397. \DM4,%V0[ ║        Current Dir : %C:                                                             ]\+V0[1]
  398. \DM4,%V0[ ║ Download Directory : %D:                                                             ]\+V0[1]
  399. \DM4,%V0[ ╚════════════════════════════════════════════════════════════════════════════════════╝ ]
  400. \KV0_[Enter to Continue: ]
  401. |*TAB             \\ This runs automatically when <Tab> pressed
  402. \SV0[1] \KS
  403. \DM38,%V0[ ╔═══════════════════════════════════════╗ ]  \+V0[1]
  404. \DM38,%V0[  ║ OnLine MENU    %HR:%MI  %Mo/%DA/%YR        ║ ]  \+V0[1]
  405. \DM38,%V0[ ╠═══════════════════════════════════════╣ ]  \+V0[1]
  406. \DM38,%V0[ ║ <C> = find main Command               ║ ]  \+V0[1]
  407. \DM38,%V0[ ║ <D> = Download a file                 ║ ]  \+V0[1]
  408. \DM38,%V0[ ║ <DM>= Download Mail (from mail door)  ║ ]  \+V0[1]
  409. \DM38,%V0[ ║ <E> = Edit Script                     ║ ]  \+V0[1]
  410. \DM38,%V0[ ║ <F> = File Manager                    ║ ]  \+V0[1]
  411. \DM38,%V0[ ║ <G> = Goodbye                         ║ ]  \+V0[1]
  412. \DM38,%V0[ ║ <J> = Jump to DOS                     ║ ]  \+V0[1]
  413. \DM38,%V0[ ║ <L> = Log to disk ...status %LD       ║ ]  \+V0[1]
  414. \DM38,%V0[ ║ <M> = Mail (check for your mail)      ║ ]  \+V0[1]
  415. \DM38,%V0[ ║ <N> = New File Scan                   ║ ]  \+V0[1]
  416. \DM38,%V0[ ║ <O> = Open Door                       ║ ]  \+V0[1]
  417. \DM38,%V0[ ║ <P> = edit Phone directory            ║ ]  \+V0[1]
  418. \DM38,%V0[ ║ <Q> = Quick Note file                 ║ ]  \+V0[1]
  419. \DM38,%V0[ ║ <S> = Scroll-back buffer              ║ ]  \+V0[1]
  420. \DM38,%V0[ ║ <T> = Termanial Mode                  ║ ]  \+V0[1]
  421. \DM38,%V0[ ║ <U> = Upload a file                   ║ ]  \+V0[1]
  422. \DM38,%V0[ ║ <UM>= Upload Mail (from mail door)    ║ ]  \+V0[1]
  423. \DM38,%V0[ ╟───────────────────────────────────────╢ ]  \+V0[1]
  424. \DM38,%V0[ ║ <R> = RESUME Script  <?> Manual Macro ║ ]  \+V0[1]
  425. \DM38,%V0[ ║<Esc>= ABORT script   <V>iew Settings  ║ ]  \+V0[1]
  426. \DM38,%V0[ ╚═══════════════════════════════════════╝ ]
  427. \KO[30]  \BB+  \KV0__[Enter OPTION: ]  \BB-  \RS
  428. \IV0+C[\SVQ[]\SC[SCRIPT;quest]\gb[termlines]]
  429. \IV0+DM[\SVG[]\SC[SCRIPT;KMdl]]
  430. \IV0+D[\SVD[]\SC[SCRIPT;Download]]
  431. \IV0+E[\DC-[%WC %S:%VY]\gb[*tab]]
  432. \IV0+G[\SC[SCRIPT;logoff]\EB]
  433. \IV0+F[\FM[]\gb[*tab]]
  434. \IV0+J[\JD\gb[*tab]]
  435. \IV0+L[\LD*\gb[*tab]]
  436. \IV0+M[R Y{\GB[termlines]]
  437. \IV0+?[\KV9[MACRO:]   \LV9[]  \IE+%LV,1[\SV9[%V9]]\gb[*tab]]
  438. \IV0+N[\SVF[]N S U N{\GB[termlines]]
  439. \IV0+O[\SVM[]op %V2 {\GB[termlines]]
  440. \IV0+P[ \DI[] \GB[*Tab] ]
  441. \IV0+Q[\DC-[%WC %B:notes.txt]]
  442. \IV0+R[\gs[%VY;menu]]
  443. \IV0+S[\RB\gb[*Tab]]
  444. \IV0+T[\gb[termlines]\gb[*tab]]
  445. \IV0+UM[\SVS[]\SC[SCRIPT;KMul]\gb[*tab]]
  446. \IV0+U[\SVU[]\SC[SCRIPT;upload]\gb[*tab]]
  447. \IV0+V[\SC[SCRIPT;settings]\gb[*tab]]
  448. \GB[*TAB]
  449.  
  450. |TermLines
  451. \to[120]
  452. \ST[ » Press <TAB> for Menu options «]
  453. \RE[\CA-[\ab] \IK+[%IK]]
  454.  
  455.  
  456.  
  457.